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DECUS fVogram Library W rite-up DECUS NO. 8-602A 

THE PDP8 COOKBOOK 

BY 

FLOOR ANTHONI 

Medical Biological Laboratory TNO, Rijswijk 2100, The Netherlands 

SUBJECT: Subroutine standardisation 

INTRODUCTION; 

By the beginning of 1972, nearly 14 000 computers of the PDP8 
family have been produced and field-installed. All of them have to 
be programmed to fulfill the tasks, dedicated to them. 

The small size of most PDP8 configurations has forced most 
programmers to program the machine in assembly language. Many 
programs have since then found their way to the DECUS PROGRAM 
LIBRARY. The typical application-oriented programs, however, 
were rarely submitted to the LIBRARY, because nobody would ever 
be likely to apply for them. The experience, accumulated else- 
where, was therefore not available to others. 

In programming the PDP8 computer. I have experienced the use- 
fulness of program modularity at the assembly level. The basic 
modules are, in effect, subroutines that perform a certain 
function, and that have been programmed in such a way, that they 
can be used as "recipies" in a cookbook. When these "recipies" 
are being sent to a central editor, and published regularly, 
they will accumulate experience into a common module library, 
THE PDP8 COOKBOOK, available to others. 

This paper proposes a norm for modules, submitted to the 
library. 



THE SUBROUTINE AND ITS USE 



The subroutine jump certainly is the most powerful instruction of 
any computer. It enables the programmer to avoid duplication of 
code, and to build hierarchical structures of software intelligence, 
increasing the semantic power of each free location in core. 

Subroutines in hierarchical structures will in general do the 
task expected from them, with a minimum of "directions" given 
from "above". They can, themselves, set lower level subroutines 
to work for them, also with a minimum of directions. These 
directions are in general, information, that has to be transferred 
down to the subroutine. The subroutine can, on the other ( hand, 
send information back. Subroutines that can be directed to do 
many tasks, will, in general need more "instructions" from above. 
The programmer has to consider this aspect with great care. The 
following remarks on the ways, information can be sent to and 
from subroutines may assist him in this respect. 

When only one parameter needs to be transferred, use the ACCU- 
MULATOR. The LINK can be used as additional YES or NO information, 
although it is, in general not frequently used. The use of other 
registers, like the MULTIPLIER-QUOTIENT register, must be strongly 
dissuaded, because the module will then not be able to run on 
many machine configurations. 

More information can be transferred as arguments, following the 
OTMS instruction. This is especially useful for parameters that 
can be set at assembly time, or that need not to change very often. 
Use the AC for frequently changing information. A common informat- 
ion area in page can also be used. This is especially useful 
when those parameters need to be accessed by many modules. 
(For example program- and buffer-limits, pointers, etc.). The 
main problem of the sharing of the same storage locations, by 



different subroutines, is that extreme care must be exerted when 
calling subroutines within those subroutines. 

All subroutine modules in the COOKBOOK will be provided 
with the storage locations they need, in order to avoid conflicting 
use of these locations. 

Another way to circumvent such problems is to employ the tech- 
niques of reentrant and recursive programming, in which push- 
down list structures are being used. This aspect will not be 
within the scope of this paper. . The concept of creating an in- 
formation "vector", that is a limited area in core with all the 
information, in order that only the pointer to this "vector" 
needs to be transferred, is, however, very useful for transfers, 
both in and out of the subroutine. 

jiOW TO PREVENT UNWANTED INTERFER ENCE 

When using subroutines, that have been used before, the most likely 
assembly error is that illegal redefinitions will result from the 
duplicate use of symbols. Therefore care must be taken to label 
a location. The following conventions are proposed: use very few 
tags. Put all storage locations and other items in front of the 
subroutine entry, that needs to have more than 3 characters. All 
other tags need to share, at least the first 3 characters of the 
subroutine entry. 

Those programmers that want to "pack" subroutines into the 
least possible space, will find it easy to modify the subroutines 
in this respect. 

DOCUMENTATION 

Simple subroutines need less documentation than the more sophis- 
ticated ones. Comriients should be inserted, wherever additional 
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information is needed. Avoid trivial comments like CLA/ CLEAR AC, 
but express the general concept and thoughts, as if it were a 
flow chart. The documentation must be adequate for the reader 
to easily understand how the subroutine works. For more sophisti- 
cated routines a flow chart is a must. Each subroutine must have 
a compact functional description of not more than one line (52 
characters). Then follows a general description of the subroutine 
and an example of its use. All program lines and comment lines 
should not exceed 52 positions, as assembler output and cross- 
reference numbers must have room to be inserted. 

The source tape should be submitted with the tabulations, not 
being converted to spaces. 

The listing should preferably be made with a teletype printer 
(teletype type of character), printed with tabs converted to 
spaces. Use a clean typing head and a new black ribbon, as the 
listing will be offset-copied. Drawings and flow-charts should 
be drawn with black ink, or taped with special stickers. 

For the use of symbols, the reader is referred to Appendix I. 

PROGRAM SUBMISSION 

Submit your program subroutine to 

The Editorial Board of 

The PDF 8 COOK BOOK 

c/o Floor Anthoni, 

Medical Biological Laboratory TNO, 

139, Lange Kleiweg, 

RIJSWIJK (ZH),2100, 

The Netherlands. 

NOTE I It is of vital importance that errors are reported back to the 
authors or the editorial board. Only by doing so one can 
achieve the highest reliability of the published subroutines. 



COOKBOOK VOLUME 1 CATALOG LISTED BY NUMBER 

001 Type the characters following the JMS instruction 

002 Teletype type routine with overlap 

003 Type a character chain 

004 Binary to decimal conversion, single prec.no sign 

005 Binary to octal conversion^no sign. fixed field 

006 High speed reader subroutine 

007 Tabulator routine 

008 Move a block through core 

009 Binary punch with field setting, checksum, leader 

010 PAL message printer 
Oil General branch routine 

012 Check AC if octal 

013 Logical operators, AND, OR, NAND, NOR, EXCL.0R,etc. 

014 PS8/0S8 option decoder 

015 Print 2 digits in decimal 

016 Print the PS8/0S8 date 

017 Print the AC as a FOCAL linenumber 

018 Print 4 decimal digits, using routine 015, no sign 

019 Read a decimal number in core 

020 Decimal print, leading blanks, no sign 

021 Print double length decimal, no sign 

022 Octal print, no sign, leading spaces 

023 Double word octal print using 022 

024 Translate TELEX code to ASCII 

025 Translate TELEX code to ASCII 

026 Translate ASCII code to TELEX 

027 Interrupt ASCII output handler with rotating buffer 

028 Device interrupt handier (part of 027) 
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029 Read or write DECtape in both directions 

030 Subroutine to pack a fixed buffer in core (300 chars) into a 
fixed output buffer (200 chars) in TSS8 packed format 

031 Pack characters into a buffer in TSS8 format, one by one 

032 As 031, but with a fixed allocated buffer 

033 Unpack TSS8 format packed buffer into an output buffer 

034 Unpack TSS8 format packed buffer, one character at a time 

035 Subroutine to read a 6 character name in core 

036 Search a file name in DN blocks (Disk monitor) 

037 Search for an unused block in SAM block, and reserve it for 
the current file 

038 Search internal file number in SAM blocks (Disk Monitor) 

039 Subroutine to read or write on disk (TSS8) . 
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FLOW-CHART conventions 

The flow-charts make use of relatively few symbols : 




o 



Entry, or exit of a program or sub-program, 
also used for the inter-connection of 
flow-charts on different pages. 



A rectangle describes one or more program 
steps. 




Decision, branching 




Subroutine call. 

A subroutine may have more than one return 

(branching) . 



/COMMENT 



Comments appear behind a slash (/). 



START, 
LOOP, 



Used to name program ties in agreement 
with the listings. 
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/001 lYPh THE CHAKACTLl^S i^OLLOWIcS;G THh. JIAS IMSTR. 
/TERMIi>JA'i'OF< IS A ?:LhO. 



/ 






/ 


JMS TYPTLX 


/TYPE ••ABC" 


/ 


301 


/••A" 


/ 


30 2 


/"R" 


/ 


303 


/•»C'* 


/ 





/TEHMIiNJATOP 


/ 

TY] 


HETUE^J 
PTEX^ 


/AC-0 




TAL I TYPTEX 


/GET CHAP, 




ISZ TYPTEX 






SiMA 


//^EHO? 




JMP I TYPTE?t? 


/Yt.S> JXP TO MEXl LOG 




JHS TYPE 


/lnJO> lYPE 



JMP TYPTEX+1 



/ '2 TLLlvlYPb. TYPL ]-OUTI.N]t. 

/I ^^]I TIAl.I.'^hS ;^HB.Xi F.^ThnEl; hUi^ rlhS'i TT.v,h. 

/0O7 l-ESTAinADLiL ! 

/ 

/ 

/ 



1YF'B:> 



TAD 


CHAHACTt.1.: 


J^iS 


TYPt 


rihTUniM 


N OP 









JMP 


. + 3 


TSh 




JMP 


.-1 


TLS 




CLA 




TAD 


TYPE-1 


DCA 


TYPE+1 


JMP 


I TYPE 



/ VhHL A I L P Y "lV OP •• 
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/M^3 TYPL A CHAKAGTLh CHA I i\j 

/lYPh. THE CHARACTERS IN THE LIST> POIiNjlf.L TU 

/-Y THE FIRST AHGU^EOJT. LIST TLRt^I^iAlJh =0 

/ 

/ JMS TYPTEX /TYPE ''ARC" 

/ LIST 

/ RETUHlM /A = 

/ 

/ 

/LIST^ 301 

/ 302 

/ 303 

/ 

/USED AS POINTER 

TYPTEX> /TYPE TEXTSTRIiMG 

TAD I TYPTEX /GET ARG 

DCA TYPTEX-1 /SAVE TO USE AS POINTER 

ISZ TYPTEX /FOR CORRECT RETURi^ 
TAD T TYPTEX- 1 /GET CHAR 

SNA /?,ERO? 

JMP I TYPTEX /YES^ RETURN 

JMS TYPE /NO 
ISE TYPTEX- 1 

Ji^P TYPTEX+4 /LOOK h OR NEXT 



n 



/i-U^A BINJAnY TO i;hCn%AL UO\;VhhSIO>J AMb TYPL; i^O SI6^J 

/hOUlINE TO COtvJv/hFT A BLvAHY A/Ohi; 10 i^hCliyiAL AMI; TYPt 

/VALID hOr. t\;U<XiBLRS 0-/i''19b. MO S10:NJ* 

/lb UShi. hOP 3 La Gil S: UKLBIh, 6030; -^=^-3 DIGIT COUi>JT. 

/ 

/ 

/ 

/ RhTUhOQ /AC = 



IT 



TAL vJOhD 
JM$ PRINTD 
RhTUhOQ 



PRIt\]TD> 



60 30 
763^ 
7 766 
7 77 7 

TAD 



P60 



--a 



DC A 
TAD 
DCA 
DCA 
TAD 
TAD 
DCA 
HLT 
CLL 
TAD 
SNL 
JMP 

isr, 

DCA 
JMP 
CLA 
TAD 
TAD 
JMS 
ISZ 
JMP 
JMP 



PHINTD-2 
PRINTD-1 
PRINTD-^ 
PRINTD-5 
PHIiV)TD-6 
PRINTD-^ 



PRIlNJTD-2 

. + /] 

PHINTD-b 
PRINTD-2 
PHINTD+5 

PHIi>}TD-5 

PRINTD-3 

TYPE 

PRINTD-4 

PRINTD+/J 

I PRIiNJTD 



/-1000 Ca^^LRSIOiNJ CONSTANTS 

/-I 00 

/- 1 

/-I 

/USED FOlv COiXfV. CONSTANTS 

/DIGIT BCD TO BE TYPED 

/COUNTER 

/TO MAKE A CHAH. 

/SA^E AREA 

/DIGITS TO BE TYPED (-4>-3>-2) 

/ENTER WITH WORD IN AC 

/SET UP COUNT 

/CLEAR BCD 

/FETCH CURR. CONV. CONST. 

/BY ADDING COUNT TO TAD 



/UALUE - CONSTANT 
/OVERFLOW? 
/NO>TYPE IT 
/YES^NEXT TRY 



/BCD 
/•fP60 



/NEXT DIGIT 
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/OOb BINJARY 10 OCTAL 
/ROUTI^JK PRINTS THE 
/ 



C Oisj vh r: S I 0\! A lNj I. P HINT 
AC Ih 0U1AL> ^jO.SIGi^. 



/ 


TA D 


'^OHD 




/ 


JMS 


PRINT8 




/ 
/ 


Kt,TURN 


/AC = M 


8 60 








7 




A'lASK 









/DIGIT COUNTER 




-4 




/# OF DIGITS 









/TEMPORARY 


PRIMT8, 











RAL 


CLL 






DCA 


PHINT8-1 






TAD 


PHIMT8-fi 






DCA 


PR I NTS -3 


/SET UP COUNT 




TAD 


PRINTB-1 






RAL 








RTL 








DCA 


PRIl\}T8-1 






TAD 


PHI:MT8-1 






A(^D 


PRINTS- /I 


/MASK 




TAD 


PRINT8-5 


/MAKE ASCI I 




JMS 


TYPE 






ISZ 


PHI NTH- 3 


//J DOi\IE? 




JiMP 


PRINT8+5 


/NOT YET 




JMP 


I PRINTS 
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/00 6 HIGH SPEED HEADER SUDii OUTI iNiE 

/EesJTER WITH AC = 0;ROUTIN1E IiNiITIALI7:ES HSii.EACH ].ii.i:.\ i j.x 

/AFTER AN END-OI*-TAPE C OiNJ D I T I Olv (Tli^E-OuT) 

/^HEiNJ STOPPED l^ TAPE MOTIOlNi IT SIGNALS TIi^EQUT THE 

/NEXT ENTRY* THE ROUTINE HAS A BUILT-IN TIMING LOOP 

/THAT TIMES OUT IF THE READER IS NOT SWITCHED 0N> 

/OR IF THE READER LOOSES ITS FLAG EY RUNNING OUT Oh TAPE. 

/ 

/ JlMS hsread 

/ OUT OF TAPE RETURN 

/ NORMAL RETURN^ CHAR. IN AC 

/ 



SRLAD* 







DCA HSREAD- 1 


SRhLG> 


1 




TAD HSRFLG 




57, A CLA 




JiMP' . + 3 




RSF 




JMP .+5 




DCA HSRKLG 




6016 




ISZ HSRIlAD 




JMP I HSREAD 




152 HSREAD- 1 




JMP HSRFLG 




ISZ HSRFLG 




JMP I HSREAD 



/USED AS TIME-OUT COUNT 

/ENTRY 

/SET UP COUNT 

/i*LAG SIGNALS TO INI T READER 

/THESE INSTR. CONTRIBUTE TO LOOP 

/INIT READER 

/SKIP? 

/N0# COUNT TIME-OUT 

/CLEAR FLAG 

/READ 

/RETURN^ CHAR IN AC 



/SET FLAG TO 
/EOT RETURN 



SIGNAL TIMEOUT 
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/00 7 TAFiULATOH ROnTI>^h 

/THR USiLH HAS TO TAKE CAKh Ot t 

/IMCRLMtiNJTIMG TABCMT WITH hACH I :\i(: OC^ I vJ G CHA}^ACTKK> CLKAHIMG 

/IT JHEiNJ CAHHIAGh RLTUHN. I'AP- 1 .^^Thh V>AL IS vAnlABLlL. 

/A JMS TO TAB WILL MO^L THE TYl^lCvG HEAL TO THE NEXT 

/TABULATOR POSITION* 

/ 

/ CLA 

/ J^S TAB 

/ IiETUH^J /AC-^0 

TABClMT> 

-10 /lAB I^31ERUAL 

^/J0 /5.PAGE 

TAB^ /EnEii WITH AC =0 

TAD TABCNT /SUETuAGT N TIMES TO GIVE REr^iAI^^EER 

TAD TAB-P 

SMA 

JMP .-2 

DCA TABCNT /USE AS i^EGATIVE COUi^TEF 

IAD TAE-1 

JMS TYPE 

IS^ TABCiMl /ErADY? 

JMP .-3 

JMP I TAB /YES 
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/v-:-H SUJ'i 001 I .^r. TO r-;Ovl'.:A hi. UOK Ih/^OOGH GUM!. 

/ 

/ CALLING ShOUhMCK 

/ F^b. G I :N) ADDRESS 

/ LiNiDADLhhSS 

/ DbSlIivAllOM Oh MRST WOHD 

/ RiLlUHM /AC = 

/ 

/ IK BKGIi\)Ai»DHh:£S AiSIL hMLAJjDRhSS AHh 

/ THL SAi^L ADDRh;SS> OH PEGI NALDHESS 

/ IS Gl-hATLR THAiS) t.LSjLAL/L;HLSS> 

/ ^J0 {^OVh IS PhnFOHMLD 

/ 

/ I> BEGlL^JADbHliSS ACgD Dt-STINATI O^i ARE 

/ THE SAi^fc. ADDKLSS> A CU^F'LETE MOVE 

/ IS PEHhOELV^iEb: YOU SHOULD BE LESS STUPID! 

/ 

/ be (OCTAL) CORE LOCATIOiNiS ARE USED 






/ 

[^OvE> 

TAD I MOVE /GET BEGINADDHESS 

DCA LiOVE-1 

IS^ MOvE 

TAD I MOVE /GET EiSjDADDRESS 

DCA MOVE-2 

IS?: MOVE 

TAD MOVE-P 

CMA 

TAD MOVE-1 /CALCULATE WORDCOUNT 

SiMA /IS IT POSITIV OH ZERO? 

JMP MOVRET /YES^ NO MOVE NEEDED 

DCA MOVE-4 /SAVE WORDCOUNT 

TAD MOVE'l 

CIA CLE 

TAD I MOVE /CALCULATE MOVECOUNT 

DCA MOVE- 3 /AND SAVE 

S>^L /LINK IS ON IF MOVE TO HIGHER CORE 

JMP . + 3 /SKIP NEXT INSTRUCTIONS 

I AC CML /LINK IS ORE 

TAD MOVE-^ /hlhSl IN ADDRESS IS BEGINADDRESS 

TAD MOVE- 2 

DCA MOVE- 8 /SAVE INPUTPOINTER 

SZL /SKIP IE MOVE TO LOWER CORE 

CLL CMA HAL /TO HIGHER CORE^ INC = -1 

lAC 

DCA MOVE-1 /SAVE INCREMENT 

TAD MOVE- 2 /SET UP UUTPUTP 01 NTEH 

TAD MOVE- 3 

DCA MOVE- 3 /AND SAVE 

MVLOOP> TAD I MOVE-S /GET A WORD 

DCA I MOVE-3 /AND STOl^E IT IN DESTINATION BLOCK 

TAD MOVE-P 

TAD MOVE-1 /INCREMENT INPUTPOINTER 

DCA MOVE-P 

TAD mOVE-3 
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DCA M0\Jh-3 

JMP MVLOOP 
/ 

MOVRET-? ISZ MOVE 

JMP I MOVE 



/ 1 i\i c ] ^ i'M t.\ 1 on T r ' U T? IM T>. i ; 
/J^3C^EM^.i^]T ^ohdgouo^t 

/AUAIN IF NOT Z EH 

/SET UP RETURiMADURESS 

/KElUhN 
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Ai\L UVLiIrv Sr.'illNJGS 

iy; chkgksum is pumchll) 



/:^0y PINAhY PuivGl! v^/ITH rlhJ.L- ; 

/THRLL SUBhOUTIMbS TO PU'Mi:'^ A.\) 

/LOALhh l^ORiViAT* hlLLL ^.hlTI^JbS 

/APE BEI^iG PUNCHED AT EACH ENjTH 

/ /;h EiM P U^M CH K IS C A EL F. h • 

/THE HOUTI^JE CAiSJ TAKE J.iAlA i^iAJS A EII^TEEECsJT MELD. 

/IT CAN OPERATE IN ALL Mh.LLS* SEVERAL USES APPLY: 

/I) NORMAL USE. THE LATA IS LOCATEL IN THE SAi^E FIELD OH 

/STRANGE EIELD. ENTER wl TH i«IELD IN AC; LINK=0 

/P) THE CODE IS IN SAME FIELD AS BINPUN> QNILY A DIFFERENT 

/FIELD SETTING NEEDS TO BE PUNCHED. ENTER BINPUl^ 

/WITH FIELD IN AC AND LINK=1. 

/3) THE CODE HAS BEEN MOVED IN CORE. THE hlHST LOCATION 

/IS NOT NECESSARILY THE ORIGIN. NOv^ ENTER BINPUN WITH 

/AC=FIELD FOR SETTING; LINK=:i; SET ORIGIN UNEQUAL TO 

/FIRST LOCATION IF THIS IS TRUE. 



/EXAMPLE 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/ 



OF NORMAL USE: 



JMS LEADER 

CLL 

TAD (0010 

JMS BINPUN 
ORIGIN 
FIRST LOC' 
LAST LOC 

JMS PUNCHK 



/PUNCH LEADER^ CLEAR CHECKSUM 



/FIELD 1 



/IN NORMAL USE=FIRST LOC 



/PUNCH CHKSM AND TRAILER 



BINEND> 



BINPUNi 



BIN3j 



BINSi 





620 

100 

300 





DCA 

SZL 

JMP 

TAD 

TAD 

DCA 

TAD 

TAD 

JMS 

TAD 

ISZ. 

DCA 

TAD 

JMS 

TAD 

JMS 

TAD 

AND 

JMS 

TAD 

DCA 

IS^ 

TAD 

DCA 

CDF 

TAD 

JMS 



1 



BINPUN- 1 

BIN3 

BINPUN- 1 

BINPUN-4 

RIN2 

BINPUN-1 

BINPUN-2 

TYPE 

I BINPUN 

BINPUN 

BINPUN-1 

BINPUN- 1 

BINLH 

BINPUN-3 

BINCHK 

BINPUN- 1 

BINLH-1 

BINCHK 

I BINPUN 

BINPUN-1 

BINPUN 

I BINPUN 

BINEND 



I BINPUN-1 

BINLH 



/LAST LOC. TO PUNCH 



/FOR FIELD SETTING 
/TEMP. STORAGE 



/SET UF' DF IF LINK = 



/MAKE CDF 



/MAKE FIELD SETT. AND PUNCH 
/NOTE!r#IELD SETT. NOT IN CHECKSUM!! 

/GET ORIGIN 



/PUNCH ORIGIN 

/LEFT HALF 

/+100 hOR ORIGIN 

/RIGHT HALF AND PUNCH 



/SET UP POINTER 



/GET END 

/OVERLAID BY CDF STRANGE FIELD 

/GET DATA 

/PUNCH LEFT HALF 
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JMS BI}JCHK 

TAD I BINPUN-1 /PUMCH RIGHT HALh 

AND HI'MLH-1 

JMS BliNJCHK 

TAD BIN END /hND HEACHLD? 

CIA 

CLL 

TAD RINPUN-1 

ISZ BINPUN-1 

SNL CLA 

JMP BINg-J-l /NO^ TAKE NEXT DATA 

RIF /YES> RESTORE DE 

TAD BINPLJN-/J 

DCA e-M 

CDF /OyERLAID 

ISZ BIMPUN 

JMP I BIN? UN 

SPA CLA 

/GET LEFT HALF OF THE AG 

77 
BINLH> 

RTR 

RTR 

RTR 

AND BINLH-1 

JMP I BINLH 

/UPDATE THE CHECKSUM^ AND PUNCH FRAME 

/CHECKSUM 

BINCHK> /ENTER WITH 6 BIT FRAME IN AC 

DCA BINLH /USE BINLH TEMPORARILY 

TAD BINLH 

TAD BINCHK-1 /UPDo CHKSM 

DCA BINCHK-i 

TAD BINLH 

JMS TYPE 

JMP I BINCHK 

/PUNCH 100(8) LEADER OR TRAILER HOLES; CLE/^R CHECKSUM 
200 



L EA DER, 




TAD BINPUixJ-3 


/USE CH 


CIA 




DCA BINCHK-l 




TAD LEADEh-l 




JMS TYPE 




ISZ BINCHK" 1 


/l(EAbY? 


JMP .-3 


AvJO 


J«P I LEADEH 


/YES 



/PUNCH checksum; PUNCH trailer; CLEAR CHECKSUM 

PUNCHK> 

TAD BINCHK" 1 /GET CHECKSUM 

JMS BINLH 

JMS TYPE 

TAD BINCHK-1 

AND BINLH- 1 

JMS TYPE 

JMS LEADER /CLEARS CHf.CKSUM 



JMP I PUNCHK 
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/010 PAL i^^KSSAGi^ 



I'XiTLH 



/PRIiNJTS A i^LSSAGh CODKD ^I TH THfc. PAL PSEUDO-OF 

/•TEXT*. PAL3 Ai\)D PALH COMPATIBLE 

/ 

/ JMS PRrv^ESG 

/ i^ESG 

/ HETUH^) /AC = 

/ 

/MESG^ TEXT 'ABCSS ' /CODED AS 01 02; 0370; 6P00 





77 




/MASK 






-.^0 




/TO TEST 






240 




/TO MAKE ASCII 






100 




/TO MAKE ASCII 











/PACKSWITCH 0=LEFT;7777 = 


= R 









/POINTER 




HMESG> 




CMA 
TAD 
DCA 


I FEMES G 
PKMKSG-1 


/SAVE P0INTER(-1 ) 






ISZ 


PRMESG 


/KOR RETUliN 




RMl, 


CMA 










DCA 


PRMESG-2 


/PA CKSW= RIGHT 






ISZ 


PRMESG-1 


/NEXT WORD 






TAD 


I PRMESG-1 


/FETCH AND ROTATE 6 






RTH 










RTR 










HTR 








RK2> 


AND 
SNA 


PRMESG-6 


/MASK 6 BITS 






JMP 


I PRMESG 


/XERO ENDS THE LIST 






TAD 


PRMESG-5 


/< m ? 






SPA 










TAD 


PRMESG-3 


/YES ASCII 301-337 






TAD 


PRMESG-4 


/NO, ASCII 240-277 






JiMS 


PRINT 








isz: 


PRMESG-2 


/LEFT OR RIGHT? 






JMP 


PRMl 


/LEFT 






TAD 


I PRMESG-1 


/R I GH T 






JMP 


PRM2 
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/011 GE-vJhRAL RKA>JCH HOUlIMh 

/EFiAMCH 1^0^TI^]h PRAe^CHb.S ACCOhDING TO THE COMTLiMTS 

/OK THh AC> COi^PAHED TO EACH I TEi:^ OF A LIST* 

/£:XIT }*ROi^ FiRANCH IS ALWAYS ^^ITH AC=^0 

/ 

/ TAD AC 

/ JMS BHAiMCH 

/ LIST-1 

/ RETURN IF MOT IN LIST (AC = 0) 

/ 

/LIST-. 21 P 

/ LI^ /II^ ••CHAR"---212i» PROGRAM JUMPS TO ''LF" 

/ 21 5 

/ cr^ etc> etc » e * o o « © 

/ /0 IS LIST TERMIiNJATORl ! ! ! ! ! 

/AC 

/F^HAiSjCH POIiNiTER 

BRANCH^ ^^t'^TER WITH ARGUMEfsJT IN "CHAR" 

DCA BRAMCH-2 

TAD I BRANCH 

ISZ BRAlvJCH 

DCA BRAi^JCH-1 /I MIT POINTER 

BRANC^ ISZ BRANCH- 1 

TAD I BRANCH- 1 /i^ ETCH ELEMENT FHM LIST 

SNA /END OF LIST? 

JMP I BRANCH /YES 

CIA 

TAD BRANCH- 2 

ISZ BRANCH- 1 

SZA CLA 

JMP BRANC /NOi^TRY NEXT 

TAD I BRANCH- 1 /YESj. GO TO IT 

DCA BRANCH 

JMP I BRANCH 
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/A\2 CHECK It OCTAL 

/ROUTINE CHECKS WHETHER THt. AC I S A>J OCTAi, Li oil 

/ 

/ TAD CHARACTER 

/ JMS OCTCHK 

/ NOT OCTAL RETURN /AC = ^1 

/ OCTAL RETURN /AC==('5 

10 

-270 
OCTCHK^ 

TAD OCTCHK- I 

SMA 

JMP 0CT2 

TAD OCTCHK- P 

SPA CLA 

JMP I OCTCHK 

IS^ OCTCHK 
0CT2> CLA 

JMP I OCTCHK 
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/0l5 LOGICAL GPEHATOHS 0^^ 1 ^iO ^^Ui^shEh.S 

/THt; HESULT Oh LOGICAL OPLivAlIO^^S IS I .vi IHL AG- 

/AiN3D (MASKI^JG) A 1010 

/ • B 1 100 

/ = 1000 

TAD A 

AND B 

/INCLUSIVE OR A 101^ 

/SETS BITS B IN A B 1100 
/ =1110 

TAD A 

CMA 

AND B 

TAD A 

/CLEAR BITS B IN A A 1010 
/ B 1100 

/ ' = 0010 





TAD 


B 








CMA 










AND 


A 






/N OR 






A 


1010 


/ 






B 


1100 


/ 


TAD 
CMA 
DCA 
TAD 
CMA 
AND 


A 

TEM 
B 

TEM 




0001 


/NAND 






A 


1010 


/ 






B 


1100 


/ 


TAD 
AND 
CMA 


A 

B 




0111 


/EXCLUSIVE OR 


A 


1010 


/ 






B 


1100 


/ 


TAD 

AND 
CMA 
DCA 
TAD 
AND 

TAD 
AND 


A 

B 

TEM 

A 

TEM 

B 
TEM 


=: 


0110 



23 



/0 1 ^ P 5 8 - S /8 OP T I OM Dh,C ObhH 

/CHLCKS THE OPTI OiM> SPECIF I hi) I N IHE AC AlnIL CAUSES 

/A RETUHNj DEPECnJDIaJG UN] WHETHEP THE Oim 01^ HAS Bh.EN 

/SET 

/OPTIONS IN 0S8 RESIDE IN EI ELD 1 LOG 76^3-76/15 : 

/ 

/16A3 A R C D E F G H I J K L ASCII 301-31^ 

/76AA M N P Q H S T U V W X ASCII 315-330 

/76Ab Y Z 1 ^ 3 4 5 6 7 8 9 ASCII 33 1 > 33^^ ?J60-27I 

/ 

/ TAD (16 /CHECK OPTI ftM 16 (N) 

/ JMS OPTION 

/ OPTION NOT SET HETUEN/AC = 

/ OPTION SET RETURN /AC = 

/ 

OPTMl^ 7 77 7 

- 1 ^ /- 1 P ( 1 ) 

7 6^2 /POINTER 

/TEMP. STORAGE 

7 642 /COUNTER^ ALSO POINTER 

OPTION, /ENTER WITH POSITION IN AC 

DCA OPTION-P, 

TAD 0PTia\l-3 /RESTORE COUNTER 

DCA OPTION-1 

TAD OPTiaN-2 /SUBTRACT 12 TO FIND WORD 

TAD OPTiaN-4 
ISZ OPTION-1 
SMA S^.A 
JMP .-3 

TAD OPTWl /FOR L AND X 

DCA OPTION-2 /SAVE REMAINDER MODULO 12 

CLL CI^iL /AND ROTATE ONE BIT INTO POSITION 

RAL /ROTATE FURTHER 

ISZ OPTION-2 
JMP . - 2 

CDF 10 /AND WITH CPT WORD FIELD 1 

AND I OPTION-I 
CDF 
SZA CLA 

ISZ. 0PTia>3 /IN CASE IT HAD BEEN SET 

JMP I OPTION 
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/01 b PFa;\JT 

/THE VALUE 

/COHHECTLY 

/ 

/ TAD (VALUE 

/ JMS PRNTP 

/ RETURN 



TWO bl GITS IN DECIMAL 
OE THE AC IS PRINTED IN 
IE < 99(DECIiMAL) • 



/AC = 



TWO DIGITS 



8 60 




-12 














PRNT2* 




DCA 


PRNT2-2 


TAD 


PRtMT8-2 


TAD 


PRNT2-3 


SPA 




JMP 


. + 3 


ISZ 


PRNT2-1 


JMP 


PRNT2+1 


CLA 




TAD 


PRMT2-1 


TAD 


PRNT2-4 


JKS 


PRINT 


TAD 


PRNT2-2 


TAD 


PRNT2-'^ 


JMS 


PRI.MT 


DCA 


PRNT2-1 


JMP 


I PRiMT2 



/TO MAKE ASCII 
/10 DECIMAL 
/TEMP STORAGE 



/TRY SUBTRACT 10 UNTIL OVFLO 



/SUBTRACT FURTHER 



/PRINT HIGH ORDER DIGIT 



/RESET COUNTER 
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/016 PRINT THE PS8-0S8 DATE 

/THE DATE IS PRINTED AS: 07/17/72 

/THE ROUTINE MAKES USE 01^ PHi\il9^ TO TYPE TwO 

/DECIMALS* REQUIRES ROUTINES PKNT2 AND PRINT. 

/DATE IN 0S8 IS STORED IN LOG 7666> FIELD 1: 

/ 

/7666 MMMMDDDDDYYY /M=M ONTH> D=DAY^ Y = YEAR 

/ 

/ JMS DATE 

/ RETURN /AC=0 



DATM> 7 

17 
37 
^ 257 
106 

7666 

DATE# 

CDF 10 

TAD I DATE-1 

CDF 

DC A DATE- 2 

TAD DATE- 2 

CLL RTL 

RTL 

RAL 

AND DATM+1 

JMS PfiNT2 

TAD DATE- 4 

JMS PRINT 

TAD DATE-2 

RTR 

RAR 

AND DATM+2 

CSnS PRNT2 

TAD DATE-^ 

JMS PRINT 

TAD imTE-2 

AND DATM 

TAD DATE- 3 

JMS PRNT2 

JMP I DATE 



/MASKS 



/SLASH 

/70 YEARS 

/STORAGE 

/DATE LOG* IN OSS 

/PICK TH E DATE 



/SHIFT MONTH OUT 

/AND (17 
/PRINT SLASH 

/SHIFT MONJTH OUT AND PRINT 

/SLASH 

/NOW THE YEAH 

/+70 
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/017 PR 1^31 THL AC AS A FOCAL L li^LMUi^BLFi 

/THE VALUE OK THE AC IS PHIi^JTEiJ AS IN FOCAL: 11. 35 

/XX.YY STORED AS FOLLOWS: XXXXXYYYYYYY llSi 1 WORD. 

/IF YYYYYYY>99 STRANGE DIGITS OCCUR AS IN FOCAL* 

/REQUIRES ROUTINES PRNT2 AMD PRINT. 

/ 

/ TAD UALUE 

/ JMS PRNTF 

/ RETURN /AC=0 



PRNTFM, 


37 
177 




/MASKS 




9.56 




/PERI OD. 









/STORAGE 


PRNTF> 











DCA 


PKNTF-1 






TAD 


PRNTF-1 


/ISOLATE 




CLL 


RTL 






RTL 








RTL 








AND 


PRNTFM 


/AiN3D <37 




JMS 


PRNT2 






TAD 


PRNTF-2 






JiMS 


PRINT 






TAD 


PRi^TF-l 


/NOW LOvi; 




AND 


PRNTFM+1 






JMS 


PRNTS 






JMP 


I PRNTF 





AND PRINT HIGH ORDER 



ORDER 



27 



/018 PIUNl i\ DLCI^AL LI GITS USING HOUTIMt PH(^T2 

/THE COMTLiSlT 0}« THE AG IS DIVIDED BY 100(10) 

/GIVING T^O LOW ORDER DIGITS AND 2 HIGH ORDEH* 

/THESE ARE PRINTED BY PH'nJT2« 

/ 

/ TAD VALUE 

/ JMS PRNT^ 

/ RETURN /AC^0 



PHNT^j 



763/t 


/- 100(10) 







/STORAGE AND LOiJ ORDER 




DCA 




/HIGH ORDER COUNTER 


PRNT4-2 




CLL 






TAD 


PRMT4-S 


/TRY TO SUBTRACT 100 UNT 


TAD 


PR>JT4-3 




SML 






JMP 


. + 3 




ISZ 


PRMT4-1 




JMP 


PRNT4+1 




CLA 






TAD 


PRNT4-1 


/PRINT HIGH ORDER DIGITS 


JMS 


PRNT8 




TAD 


PHWT4-2 


/PRINT LOW ORDER DIGITS 


JMS 


PRNT8 




DCA 


PRNT4-1 


/RESET COUNTER 


JMP 


I PRNT4 





OVERFLOW 
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/in 9 SUBhOU' 


riNE HEADS A DKCI XiAL iMUMBEK IrhO^ KLYl L 


/ 


OVES NUMBEH 


COMPLETELY 


/ 

/CALL rJMS Dt:CINP 




/ Bfc.TUr^N WITH iMUf 

/ 


4BER BIMARY IN AC 


/ 

LLC I MP, 






CLA 






DC A 


DECN UM 


/CLEAR REGISTER 


JMS 


READ 


/READ CHAR FROM KEYBOARD 


TAD 


CHAH 




JMS 


PRINT 


/PRINT THAT CHAR 


TAD 


CHAR 


/GET CHARACTER 


TAD 


M3 7 7 


/IS IT RUBOUT? 


SMA 


CLA 




JMP 


DECINP+1 


/YES READ ALL OVER AGAIN 


TAD 


CHAR 


/NO 


TAD 


M260 




SPA 




/CHAR> = 260? 


JMP 


DEC OUT 


/NO;. CHARACTER IS DELIMETEH 


TAD 


Ml 2 


/YES 


SMA 


CLA 


/CHAR<272? 


JMP 


DEC OUT 


/NO, CHAR IS DEL I METER 


TAD 


DECNUM 


/YES, CHAR IS FIGURE 


CLL 


FtAL 




DCA 


DECTMP 


/NUMB. * 2 


TAD 


DECTMP 




RTL 




/NUMB* 8 


TAD 


DECTMP 


/NUMB*8+NUMB*2=NUMB+ 1 


TAD 


CHAR 


/ADD LAST FIGURE 


TAD 


M260 




DCA 


DECNUM 


/DECIMAL NUMBER 


JMP 
/ 
DECOUT#CLA 


DECINP+3 








TAD 


DECNUM 




JMP 
/ 

/VARIABLES 

/ 

DECMW1>0 


I DECINP 


/EXIT 










DECTMP>0 

/ 

/GENERAL CCXi 






ISTANTS 




M 1 2> - 1 2 






M260, -260 






M377* -377 
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/020 DECIMAL PRINT ROUT 

/PRINTS AC DECIMAL IN 4 

/MAX NUMBER = ^09 5 DEC I 

/SKIPS LEADING ZERO'S 

/ 

UPKT> 

DC A DPRREG 
TAD DPRINS 
DCA DPRPTP 
TAD M4 
DCA DPRFAC 
DCA DPRFL 
DCA DPRFIG 

DPRSUB> CLL 

TAD DPRREG 

DPRPTP* TAD DPRTEN 
SNL 

JMP .+4 
DCA DPRREG 
ISZ DPRFIG 
JMP DPR SUB 
CLA CLL 
TAD DPRFIG 
SNA 
JMP DPRZRO 

DPRIN, TAD CS60 

JMS PRINT 
ISZ DPRFL 

DPRIN1,ISZ DPRPTP 
ISZ DPRFAC 
JMP DPRSUB-1 
JMP I DPRT 



INE* 

DIGITS 
MAL 



/SAVE AC IN PftlNTREG. 

/GET INSTRUCTIOS) 

/PUT INSTR. 0^ POINTER 

/A DIGITS 

/CLEAR PRINT FLAG 

/CLEAR DIGIT 

/PICK UP SAVED AC 
/SUBTRACT POWER OF TEN 
/REMAINDER POSITIVE? 
/NO, PRINT DIGIT 
/YES* SAVE REMAINDER 
/DIGIT:=DIGIT+1 
/REPEAT SUBTRACTION 

/GET DIGIT 
/A ZERO? 

/YES 

/N0> CONVERT TO ASCII 

/MAKE NOT EQUAL 
/MODIFY INSTR m DPRPTP 
/PRINTED A DIGITS? 
/NO* PRINT NEXT DIGIT 
/YES* RETURN 



DPKZRO* TAD DPRFL 
SZA CLA 
JMP DPR IN 
JMP DPRINl 

/ 

DPRREG* 

DPRFL* 

DPRINS* TAD DPRTEN 

DPRFAC* 

DPRFIG* 

riPRTEN*60 30 
7,634 
7766 
7777 

/ 

/GENEPiAL CaNSTANTS 

M4* -4 '■'- 

C260* 260 



/-I 000 
/-I 00 
/-10 
/-I 
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/0?il S 


UBK Olj 


TIML 10 i-^ 


/ 






/CALL: 


J-^S 


DDtCPH 


/ 


MOS 


T SIGMIfl 


/ 


LLA 


ST SI 6^ IF 


/ 


MUM 


BLR OF DI 


/ 


HLTUHCsi 


/ 






/ 






DDECPR- 


.0 






TAD 


I DDECPh 




DCA 


UDX 




DCA 


DDPD 




isz: 


DDECPF^ 




TAD 


I DDLCPH 




DCA 


DDX+ 1 




ist: 


DDKCPH 




TAD 


I hVECPE 




DCA 


DDNDIG 




ISZ 


DDECPH 




TAD 


DDATPL 




DCA 


DDPTPL 




TAD 


DDATPH 




DCA 


DDPTPH 




TAD 


M10 




DCA 


DDNFAC 




DCA 


DDIGIT 


DDSUB^ 


CLL 






TAD 


DDX+1 




TAD 


I DDPTPL 




DCA 


DDX+l 




RAL 






TAD 


VDY. 




TAD 


I DDPTPH 




SNL 






JMP 


• + 4 




DCA 


DDX 




is;^ 


DDIGIT 




JMP 


DDSUB 




CLA 






TAD 


I DDPTPL 




CIA 






TAD 


DDX+1 




DCA 


DDX+1 




TAD 


DDIGIT 




S7.A 






JMP 


DDPDIiM 




TAD 


DDPD 




SZA 


CLA 




JMP 


DDPDIiM 




lAC 






TAD 


DDNFAC 




SMA 


CLA 




JMP 


DDPDIM 




TAD 


DDNEAC 




TAD 


DDNDIG 




SPA 


CLA 




JMP 


DDPTIN 




TAD 


Cg40 




JMP 


DDPPn 



hDMl DOUBLE LE:\)GTH DECIMAL 



CA^iT PART 

I CANT PART 

GITS TO BE PRINTED ( <=8 ) 



/FETCH MOST SIGNIFICANT PART 

/SAvE 

/CLE NUMB. OF PRINTED DIGITS 

/FETCH LEAST SIGNIFICANT PART 
/SAVE 

/FETCH FORMAT 

/CORRECT RETURN 

/ADDRESS 10-POWER LOW 

/POINTER 10-POWER LOW 

/ADDRESS 10-POWER HIGH 

/POINTER 10-PO^ER HIGH 

/FACTOHISE 8 DI GITS 
/CLEAR DIGIT 

/L SIGNIFIC PART OF NUMB. 

/LOW PART FACTOR 

/STORE 

/OVERFEOW IN AC 

/M SIGNIFIC PART OF NUMB. 

/HIGH FACTOR 

/RESULT NEGATIVE? 

/YES 

/STORE RESULT OF SUBTRACTION 

/N0> STEP UP DIGIT 

/SUBTRACT 2-LENGTH AGAIN 

/CLEAR BEFORE CORRECTION 

/i0-POWER LO\J 

/MINUS 

/CORRECT LAST SUBTRACTION 

/STORE 

/GET DIGIT 

/=0 ? 

/NO 

/ALREADY PRINTED? 
/YES 



/ALL DI#D0= 0? 

/YES 

/NEGATIVE VALUE 

/POSITIVE VALUE 

/SPACE? 

/YES 
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DDPDIN^ IS/. DDPD 

TAD 0^60 /COiNiVhRT TO ASCII 

DDPPR^ JMS PRINT /PHINTlDIGIT 

DDPTIiM^ ISZ DDPTPL /STEP UP POINTER LOW 

ISZ DDPTPH /STEP UP POINTER HIGH 

ISZ DDNFAC /READY FACTORIZE? 

JMP DDSUR-1 /NO, NEXT DIGIT 

TAD DDPD 

CIA 

TAD DDNDIG 

SPA SNA CLA 

JMP .+3 

TAD DDNDIG 

DCA DDPD 

CLL 

JiMP I DDECPR /EXIT, END PUNCHOUT ROUTINE 

/ 
/ 

/CaNSTANTS PUNCH OUT ROUTINE 
DDATPL> DDTPL 
DDATPH, DDTPH 
DDPTPL, 
DDPTPH, 
DDX, 


DDNFAC, 
DDIGIT, 
DDTPL, 4600 

6700 

43 60 

60 30 

7634 

7766 

777 7 
DDTPH, 3166 

7413 

7 74 7 

7775 

7777 

7777 

7 77 7 

7777 
DDPD, 

DDNDIG, 
/ 

/GENEI^L CONSTANTS 
M10, -10 

0240, 240 

C260, 260 
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/022 OCTAL PRINT ROUTI 

/NONSIGNIFICANT ZERO'S 

/ 

/ CLA 

/ DCA OCTPIG 

/ DCA OCTSPC 

/ TAD NLir^lBEH 

/CALL :JMS OCTPRT 

/ HETURN AC=0 

/OCTSPC=i^:. = # OF SPAC 

/ IF NUMBER IS Z 

/ 

OCTPRT> 

RAL - 

DCA 

TAD 

DCA 
OCTPR0> TAD 

FiAL 

RTL 

DCA 

TAD 

AND 

SNA 

JMP 

TAD 

SNA 



NE 
BECOME SPACES 



/CLEAR PLAG M GUliE PRINTED 
/CLEAR SPACE- COUNTER 

/ WITH NUMBEl? IN AC 

/IF NUMBER=0> 
ES TO PRINT 
ERO, 0CTSPC=4 IS #SPACES TO PRINT 



OCTTMP 

OCTCNT 
OCTTMP 



OCTTiMP 

OCTTMP 

C7 

CLA 

OCTr.ER 

OCTSPC 



OCTNUMi 



OCT0PRJ 



OCTPRi^ 



/ 

OCTZER^ 



JMP 
CIA 
DCA 
TAD 
JMS 
ISZ 
JMP 
CLA 
DCA 
TAD 
AND 
TAD 

ISZ 

JMP 

JMP 

TAD 
SZA 
JMP 
ISZ 

JMP 



OCTNUM 

OCTSPC 

C940 

PRINT 

OCTSPC 

0-3 

lAC 

OCTFIG 

OCTTMP 

C7 

C260 

PRINT 

OCTCNT 

OCTPR0 

I OCTPRT 

OCTI^IG 
CLA 

OCT0PR 
OCTSPC 
OCTPRl 



/ROTATE IN LINK 
/TEMP. STOPj^GE 
/l\ OCTADES 



/STORE RESULT 

/GET IT BACK 

/MASK OCTADE 

/ZERO ? 

/YES 

/NO^ SPACES TO PRINT? 

/NO^ GO PRINT FIGURE 
/YESj^SET COUNTER 



/PRINT THE SPACES 



/SET PLAG FIG. PRINTED 



/MAKE THE FI GURE 



/HEADY? 

/NO 

/YES^ EXIT 



/FIGURES PRINTED ? 
/YES^PRINT THIS ZERO TOO 
/NO COUNT AS SPACE 



OCTTMP, 
OCTCNT>0 
OCTSPC, 
OCTFIG, 
M^, -h 
C7, 7 

CS60, 260 
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/0P3 DOUBLE 


WORD OCTAL 


PIIINT ROUTINE 


/USES ROUTINE OCTPR 




/CALLING: JMS DOCTPR 




/HIGH ORDER 


NUMBER 




/LOW ORDER NUMBER 




/RETURN AC=0 

• 




DOCTPR* 






CLA 






DCA 


OCTFIG 


/CLEAR FLAG FIGURE \ 


DCA 


OCTSPC 


/CLEAR SPACE- COUNT E 


TAD 


I DOCTPR 


/HIGH ORDER PART 


ISZ 


DOCTPR 




JMS 


OCTPR T 


/PRINT OCTAL ^ 


TAD 


I DOCTPR 


/LOirf ORDER PART 


ISZ 


DOCTPR 




JMS 


OCTPRT 


/PRINT OCTAL 


TAD 


OCTSPC 




CIA 






SNA 




/SPACES TO PRIT? 


JMP 


I DOCTPR 


/NO, EXIT 


lAC 




/YES, NUMBER IS ZERO 


DCA 


OCTSPC 


/PRINT SPACES 


TAD 


C840 




JMS 


PRINT 




ISZ 


OCTSPC 




JMP 


.-3 




TAD 


C860 


/AMD A "0" 


JMS 


PRINT 




JMP 


I DOCTPR 


/EXIT 
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/^"i^^^ SUBHOUTIiME 

/ 

/CALL iJ^iS TLXAS .^'I 

/ RETUHN CHAFiAC 

/ RETURN WITH A 

/ 

/l^HO IS TRANSLATED AS 

/? IS TRANSLATAD AS * 

/EEI^L IS TRANSLATED AS ; 

/ 

TLXAS> 

AND C37 

DCA TLXTMP 

TAD TLXTMP 

SNA 

JMP TLXOUT 

TAD M2 

SNA 

JMP TLXCR 

TAD M6 

SNA 

JMP TLXNL 

TAD M23 

SNA 

JMP TLXSWl 

TAD Vil\ 

SNA CLA 

JMP TLXSW0 

TAD TLXTMP 

TAD TLXLA 

DCA TLXTMP 

TAD TLXSW 

SZA CLA 

JMP TLXRGT 

TAD I TLXTMP 

RTR 

RTR 

RTR 
TLXMS> AND C77 

TAD Vim 

SPA 

TAD CI 00 

TAD C240 
TLXOUT> ISZ TLXAS 

JMP I TLXAS 
/ 
TLXRGT> 

/ 

TLXSW1> 
TLXSW0> 

/ 
TLXCR> 

TLXNL^ 

/ 

TLXLA^ 

TLXLST> 



TRAiNJSLATES TELEX 10 A^^CII 



TH TEL,EX CHAKACTEh Is. AC 

TEH IS SHIFT 

sen CHAHAGTEf- n\i AC 



% 



TAD 

JMP 

lAC 
DCA 

JMP 



I TLXTMP 
TLXMS 



TLXSiAj 
I TLXAS 



TAD C215 
JMP TLXOUT 

TAD C212 
JMP TLXOUT 

TLXLST 



/MASK 5 BITS 
/TEMP. STORAGE 



/BLANK 



/CARRIAGE RETURN 



/NE-;*/ LINE 



/FIGURESHIFT 



/LETTERSHIET 
/GET CHARACTER AGAIN 
/ADD LISTADpRESS 
/TEMP STORAGE 
/miCH SIDE? 

/RIGHT SIDE 
/GET ASCII 6 BIT 



/MASK 6 BIT 



/CHAR</|0: 300<=CHAR< = 337 
/CHAR>40:2-^0< = CHAR< = R7 7 
/NORMAL RETURN 



/REMEMBER WICH SHIFT 
/RETURN SHIFT 
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Pvj6b 


/■"] 




C37, 


37 








17 71 


/O 






4040 


/SF^AC 


E 




1036 


/H 






1654 


/N 






1556 


/M 




M/)0> 


-40 








1451 


/L 






9264 


/R 






73 5 


/G 






1170 


/I 






2060 


/P 






3 72 


/c 






2675 


/u 






0563 


/E 






3253 


/Z 






0477 


/D 






0252 


/B 






2347 


/S 






3166 


/Y 






0633 


/f 






3057 


/X 






0155 


/A 






2762 


/W 






1273 


/J 




C100> 


100 








2567 


/LI 






2161 


/Q 






1350 


/K 




/ 








/VARIABLES 






/ 








TLXTMPj 


.0 






TLXSW* 









/ 








/GEiMERAL CONS 


TANTS 




M2* 


-2 






M4, 


-4 






M6> 


-6 






M23, 


-23 






C77, 


77 






C21S> 


212 






CSl 5* 


21 5 






Cg/10, 


240 







) 

3 

8 





3 

?=* 

f 

6 
C 

/ 

2 
BKLL = ; 

7 
1 
C 



36 



/0P5 ^UI i UUTI V. 10 IhaiNiSLAlh. ILLhX CHAH 70 ASCII 

/ 

/CALL: JMS TLxASl 

/ hETLai>J ll* SHI 1*1 CHAirACTLH 

/ BET UHN 

/ 

TLXAS1> 

AND TLX37 

DC A TLXTMP /STOHL 

TAD TLXTC^P 

TAD TLXM3 7 

SiNJA /LETTER SHI FT? 

JMP TLXLSH /YES^ SET SHIt-T 

TAD C^ 

SNA CLA /FIGUKESHIFT? 

JMP TLXFSH /YES> CLEAR SHI^T 

TAD TLXTD4P 

TAD TLXSH 

TAD TLXLST 

DC A TLXTMP 

TAD I TLXTiMP 

ISZ TEXAS 1 

JMP I TEXAS 1 
/ 

TLXLSH> TAD TLXi^?0 
TLXFSH> DCA TLXSH 

JMP I TLXASl 
/ 
/ 
TLXLST^ •+! 

0000 /BLAiMK 

••5 

0P15 /CR 

"9 

&9.40 /SPACE 

0000 



0212 /LF 

••) 

''A 

0000 

"8 

•*0 



••3 
••+ 

0205 /WHU 

ft 7 
• I t 

••6 

0000 
•V 

••2 

2:^7 /BELL 



TLXSH^ 

••7 
"1 
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"C 




lLX/i0j 


40 
"T 






:o2l 5 


/CK 




"0 






tt 


/SPACE 




"H 






"iM 






••yi 






0S18 


/L> 




"L 






"R 






"G 






"I 






"P 






"C 






"V 






"E 






"Z 






"D 






••B 






"S 






"Y 






"F 






"X 






"A 






"j(/ 






"J 




TLX37* 


37 

"U 




TLXM3 7^ 


-37 




/VARIABLES 




/ 






TLXTtMP, 







/ 






/GENERAL CONSTANTS 


/ 






C4, 


4 
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/0P6 ROUTINE TO TRANSLATE ASCII TO TELKX 

/CALL :JMS ASTLX 

/ RETURN 

/ 

/BEFORE FIRST CALL INITIALLY!'. AS'iSFT:=^ AMi^ 

/PRINT A LETTER SHI FT 

/ 

/NOT EXISTING CHARACTERS ARE PRINTED AS BLANK 

/ALTMODE IS TRANSLATED AS PIGuRESHIFT 

/RIJBOUT IS TRANSLATED AS LETTERSHIFT 

/ 

ASTLK^ 

DCA ASTTMP /TEMP. STORAGE 

TAD ASTTMP 

AND C77 /i^AKE 6 BIT 

SNA 





JMP ASTOUT+S 


/BL AN K= BLANK 






TAD AS TLA 


/LISTADDRLSS 






DCA ASTHLP 


A.ISTADDRESS + 6- 


-BIT C 




TAD ASTTMP 








•TAD M300 








SMA CLA 








JMP ASTBIG 


/CHAR> = 300; RIGHT 


HALF 




TAD I ASTHLP 


/CHAR< 300; LEFT HALF OF 




RTR 








RTH 








RTR 








SKP 






ASTBIG* 


TAD I ASTHLP 








DCA ASTTMP 


/TEMP. STORAGE 






TAD ASTTMP 








AND C77 








SNA 








JMP ASTOUT+2 


/NOT EXISTING IN 


TELEX 




AND C'^0 


/GET SHIFT BIT 






S7.A CLA 


/WHICH SHIFT 






JMP ASTSHF 


/MUST BE FIGURES 






TAD ASTSFT 


/MUST P.E LETTERS 






SZA CLA 


/IS IT LETTERS? 






JMP AST OUT 


/YES^PRINT CHAR 






CLA CLL I AC RTL 


/+/j;no, make and 


PRINT 


ASTP5H, 


DCA ASTSFT 
TAD ASTSFT 








TAD C33 


/MAKE SHIFT 






JMS PRINT 


/PRINT 




ASTOaT^ 


TAD ASTTMP 


t 






AND C3 7 


/MASK 5 BITS 






JMS PRINT 


/PRINT 




/ 

ASTSHF> 


JMP I ASTLX 


/EXIT 




TAD ASTSFT 


/MUST RE FI GURES 






SNA CLA 


/IS n I- 1 GURES? 






JMP A ST OUT 


/YES^PRINT CHAR 




/ 

ASTLA> 


JMP ASTPSH 


/N0,MAKE AND PRINT 


A STL ST 






ASTLST> 


0000 /@ 
00 30 /A 
0083 /E 







CHAR 



OF LIST 
LIST 
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C' r^ 1 6 



K0gr! 


/V 


62 H0 


/^lUO, 


00fi6 


/F 


7? 13 


/Bh,LL> 


000 5 


/H 


001^ 


/I 


1032 


/NLs J 


00 3 6 


/K 


0011 


/L 


020 7 


/C}<> M 


000 6 


/iM 


000 3 


/O 


001 5 


/P 


00 3 5 


/Q 


0012 


/H 


00 24 


/s 


0001 


/T 


0034 


/U 


001 7 


/v 


00 31 


/w 


0087 


/x 


00 2 5 


/Y 


0021 


/Z 


0000 


/c 


0000 


/ \ 


0000 


/: 


0000 


/t 


0000 


/- 


400 


/SPACt 


0000 


/ 


0000 


/■• 


0000 


/# 


0000 


/$ 


0000 


/% 


0000 


/& 


6400 


/• 


7600 


/( 


5100 


/) 


0000 


/* 


6100 


/+ 


4 600 


/, 


7000 


/- 


4 700 


/. 


6700 


/ / 


5500 


/0 


7500 


/I 


7100 


/2 


6000 


/3 


5200 


/4 


4100 


/5 


6500 


/6 


7400 


/7 


5400 


/8 


4300 


/9 


5600 


/: 


0000 


/; 


0000 


/< 



40 



5773 


/=> 


0000 


/> 


6337 


/?> 


/ 




/ vapiafu.es 




/ 




ASTSFT>0 




ASTTMP>0 




ASTHLP>0 




/ 




/GEMERAL CONSTANTS 


/ 




C33^ 33 




C37> 37 




C^0> 40 




C77> 77 




M300> -300 





ALTMOD=PI GSHIFT 
imBUUT^LETTEhSHI M 
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/0P7 INTERRUPT OUTPUT HArvbLi^.R 

/^ITH HEAD- TAIL COUPLED BUl^l^rJ. 

/ 

/I^JITIALIZE ONICE BMF IPT: ^ -Ur .■ " 1 : == PUKI* VR 

/ BUEIBO:=0 

/ 

/ 

/CHAHACTER HANDLER 

/ 

/CALL :je4S BUMNP WITH CHAR IN AC 

/ RETURN AC=0 

/ 

/ 

BUPINP> 

DCA BUFTMP /TEMP. STORAGE 

TAD BUEIBO /INPTR BEHIND OUTPTH? 

SNA CLA 

JMP BUFPUT /NO^STOliE CHARACTER 

TAD BUEIPT /YES 

CIA 

TAD BUEOPT /INPTR = OUTPRT ? 

SNA CLA 

JMP BUFINP+2 /YES^ yJA I T F OR PLACE TO STORE 

EUKPUT>>TAD BUFTMP /N0> GET CHAR 

DCA I BUEIPT 

ISZ; BUFIPT 

TAD BUFBUS /PRINTER BUSY? 

SNA CLA 

60i^6 /NO>INIT '^ITH AC=0 

lAC /YES^SET PRINTER BUSY 

DCA BUFBUS 

TAD BUFIPT 

TAD BUFBND /END OF BUFFER? 

SZA CLA 

JMP I BUFINP /NO^EXIT 

TAD BUFADR /YES> POINTER TO HEAD 

DCA BUFIPT 

I AC /AND SET INPTR BEHIND OUTPTR 

DCA BUEIBO 

Jl4P I BUFINP /EXIT 
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/028 DEVICE INTERRUPT HANDLER 

/ 

/CALL 

/ 

/ 

BUFOUT# 



:JMP EOF OUT 
ROUTINE RETunegs 



/DEVICE ILVIEHRU}^! DETECTED! 
TO INTEDHUPT RESTORE "EXIT" 



CLA 

6042 

TAD BUMPT 

CIA 

TAD 

s?;a 

Ji^P 
TAD 
SZA 
JMP 
DCA 
JMP 



BUFQPT 

CLA 

BUFGET 

BUFIBO 

CLA 

BUFGET 

BUFBUS 

EXIT 



/CLEAR DEVICE ?LAG 



/IiMPTH 



OUTPTR ? 



/NO^GET CHAR AND PRINT 
/YES>INPTR BEHIND OUTPTR? 

/YES^ GET AND PRINT 
AM 0> PR INTER READY 



BUFGET> 



TAD 

ISZ 

6044 

CLA 

TAD 

TAD 

SZA 

JMP 

TAD 

DCA 

DCA 

JMP 



I BUFOPT 
BUFOPT 

/PRINT CHAR 



/GET CHAR 



BUFOPT 

BUFBND 

CLA 

EXIT 

BUFADR 

BUFOPT 

BUFIBO 

EXIT 



/END OF BUFFER? 

/N0> END OF ROUTINE 
/YES^POINTER TO HEAD 

/RESET INPTH BEHIND OUTPTR 
/END OF HANDLING 



CLA 

TAD 
RAL 
TAD 
ION 

JMP 



CLL 
LINK 

ACCU 

I 



/ 

/GENERAL 

/ 

EXIT> 

/ 

/ 

/ 

/ 

/ 

/VARIABLES 

BUFTMP>0 

BUFIBO>0 

BUFIPT>0 

BUFOPT>0 

BUFBUS>0 

BUFBND>-BUFEND 

BUFADR> BUFFER 

BUFFER>0 

/ 

*BUFFER+200 

BUFEND>0 



INTERRUPT RETURN ROUTINE 



/RESTORE LINK 
/RESTORE ACCU 
/INTERRUPT OiM 
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\ BUTH 



/0 
/I 
/ 

/CALL 

/ 

/ 

/ 

/ 

/ 

/ 

/ 

/DEFINING 



DIHh;CTI ONS 



OH 



JHITF.S Lh.GTAFii. 



:JMS DCTAF^h 

DLKINING BITS 

BLOCKNUi^BER 

-# .^OPiBS (1^^ BITS) 

BUFFEHABDRBSS-1 

EHROH RETURN OR 

NORMAL RETURN Ot 



lETURNADDRESS 
RETURNADDRESS 



/ 

/ 

/ 

/ 

/ 

/ 

/ 

DTCA= 

DTXA= 

DTLR=^ 

DTRA = 

DTSF= 

DTRB=: 

/ 

DCTAPE> 



DCTCNT. 



DCTSET^ 



3 

^> 

6> 

9 

10 

1 1 



UN I T 
■EVEHSE 



NUMBER 



BITStBIT 0> 1^ ^ 

0=porv/ahb; i=i-: 

5 (NOT USED) 

MEMORY FIELD 
(NOT USED) 
= DIRECT return; 1 = INDIRECT 

0=read; i = ^^rite 



8 



6762 
676^ 
6 77/1 
6761 
6771 
6772 



CLA 

TAD 

DCA 

ISZ 

TAD 

AND 

TAD 

DTCA 

DTLB 

TAD DCTWC 

I DCTCA 
C200 
DCTTRN 
I DCTWC 



I DC TAPE 
DCTCOD 
DC TAPE 
DCTCOD 
C7400 
C10 
DTXA 



DCA 

TAD 

JMS 

TAD 

CIA 

TAD 

SNA 

JMP 

CLL 

CLA 

DTHA 

AND C400 



I DC TAPE 

DCTMAY 
RAL 



SNA 
CML 

SNL 
TAD 



CLA 



C/J00 

DCTCNT 



/DEFINING BITS 
/SAVE 



/UNIT# a DIRECTia>J BIT 

/SEARCH MODE 

/I/O 

/CLEAR FIELD REGISTER 

/WORD COUNT ADDRESS 

/WORD COUNT; =BLKNR ADDRESS 

/GO BIT 

/TURN DECT AND WAIT FOR FLAG 

/READ NUMBER 

/NEG. 

/NUMBER TO FIND 

/FOUND> CHECK DIRECTION 
/SAVE SIGN DIFFERENCE 



/DIRECTIQNJ BIT 

/IS FOHV^ARD 
/IS REVERSE 
/CHANGE DIRECTION 
/DIRECTIC^ 0K> NEXT NUMBER 



DCTMAYi 



TAD 
AND 
SNA 
JMP 
DTRA 



DCTCOD 

C/100 

CLA 

DCTRFi^ 



/UNiT# 8c dire:ction 

/MASK DIRECTION 



/MUST 
/MUST 



BE 

BE 



FORWARD 
REVERSE 
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AND 


C400 


S7.A 


CLA 


JMP 


DCTRDR 


JMP 


DCTCNT 


DCTRFW, DTRA 


AND 


C400 


SNA 


CLA 


JMP 


DCTRDR 


JMP 


DCTCMT 


/ 




/ 




DCTFIDR* ISZ 


DC TAP h 


TAD 


I DC TAPE 


DCA 


I DCTWC 


ISZ 


DC TAPE 


TAD 


I DC TAPE 


DCA 


I DCTCA 


TAD 


DCTCOD 


DTLB 


TAD 


DCTCOD 


RAR 




SZL 


CLA 


TAD 


C?.0 


TAD 


CI 30 


DTXi= 


\ 


DTSF 


'■ DTRB 


JMP 


.-1 


ISZ 


DC TAPE 


SMA 


CLA 


ISZ 


DC TAPE 


TAD 


DCTCOD 


RTR 




S^jL 


CLA 


JKP 


. + 3 


TAD 


I DC TAPE. 


DCA 


DC TAPE 


DTRA 


L 


AND 


C200 


TAD 


CS 


DTXA 




JMP 


I DCTAPE 


/ 




/ 




DC'ITRl'O* 




DTXA 




DTSF 


DTRB 


JiMP 


.-1 


SPA 




JMP 


DCTERH 


CLA 




JMP 


I DCTTRM 


/ 




DCTERR, RTL 




RAL 




CLA 


CML 


SNL 




TAD 


C-^lCH?! 


JMP 


DCTC.^-T-1 



/IS REVERSE^ GO READ OR ;^HI TE 
/IS FORWAHD> CONT SEARCHING 
/MUST BE hORWAHD 



/IS F0R\a/ARD> GO HEAD OR WRITE 
/IS REUERSE^ CO^JT SEARCHING 



/-# WORDS 

/SET WORD COUNT 

/CORE ADDRESS- 1 

/SET CURRENT ADDRESS 

/LOAD FIELD BITS 



/READ OR WRITE? 

/WRITE 

/WRITE 



/ADVANCE TO ERRORRETURN 
/SKIP IF ERROR 
/NORMAL RETURN 
/DIRECT OR INDIRECT? 



/DIRECT 

/INDIRECT^ PREPARE 



/GO BIT 

/PRSERl?E ERROR FLAG 

/STOP TAPE 

/READY> EXIT 
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/ 




/ 




/VARIABLES 


/ 




DCTCOD. 


.0 


DCTWC> 


775-!] 


DCTCA* 


7755 


/ 




/GENERAL CONSTANTS 


/ 




C8* 


8 


C10, 


10 


C20, 


80 


C130, 


130 


0*200* 


200 


C400, 


400 


C7 400, 


7400 
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/030 SUBROUTIiMh, TO PACK GHAKACTEHS (TSS8) 


/THREE 


CHARACTERS IN 


TWO wORDS (TSS8 FOH:-'iAT) 


/PACKED 


J 111111112S2?> 




/ 

/ 
/CALL 


222233333333 




:JMS PACK 




/ 


ADDRESS INPUTDUl'i'ivIi 


/ 


ADDRESS OUTPUTBUFhEli 


/ 

/ 

/ROUTIN 

/ 

/F OHM AT 


RETURN 




E USES AUTO INDEX 1« AND 11 


INPUTBUFEEH= 


1 CHAR/WRD 


/LK.MGTH 


OUTPUTBUEfER^ 


= 200 


/LENGTH 

/ 
PACK, 


INPUTBUFEER= 


300 











TAD 


PCKBFL 


/-BUFFERLEN6TH OUTPU 




STL 


PAR 


/DEvIDE BY 2 • 




DCA 


PCKCNT 






.CLA 


CMA 


/-I 




TAD 


I PACK 


/ADDRESS INPUTBUEEER 




DCA 


10 






ISZ 


PACK 






CKA 




/-I 




TAD 


I PACK 


/ADDRESS OUPUTBUFFER 




DCA 


11 






IS7. 


PACK 




PCKLOP, 


TAD 


I 10 


/GET CHAR 




CLL 


RTL 






RTL 








DCA 


PCKTMP 


/TEMP. STORAGE 




TAD 


I 10 


/IVEXT CHAR 




RTR 








RTR 








DCA 


PCKTPl 






TAD 


PCKTPl 






AND 


CI 7 






TAD 


PCKTMP 






DCA 


I 11 


/URST WORD 




TAD 


PCKTPl 


/PICK UP AGAIN 




RAR 








AND 


C7400 






TAD 


I 10 


/NEXT CHAR 




DCA 


I 11 


/SECCWD iA?ORD 




ISZ 


PCKCNT 


/BUfFER hULL ? 




JMP 


PCKLOP 


/NO>PACK NEXT 


/ 

/UARIABL 

/ 

PCKCNT,0 


JMP 


I PACK 


/YES> EXIT 


.ES 






1 






PCKTMP,0 








PCKTP1*0 








PCKBFL,- 

/ 

/GENEPiAL 


200 






CONSTANTS 




C17, 


1 7 






C7400, 7/]00 
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/0 31 SijBPOUTIiv^. v--\gk: 

/THIiKE CHARAGi:,:.^^^ 1 i>J 

/PACKED: 1111111 12222 

/ 92P233333333 

/ 

/ 

/CALL 

/ 

/ 

/ 

/ 

/INITIAL L^E 

/ 

/ 

/ 

PCKSGL> 



TW( 



1 



l/v h. 



0/., 



( '! 



01. DS (TSS8 i^ Oi ^AT) 



:JMS PGKSGL WIT 
ADDRESS OF OlJTP 
RETUPiN BUFFER F 
RETURN NARMAL 



H CHAR IN 
UTBUFFER 
UTLL 
AC^0 



AC 



CE PCKSWT:=0 



/ 

/ 
PCKNRM, 



PCKEND^ 



/ 
/ 

PCKINI. 





isz; 

JMS 
DCA 
ISZ 
ISZ 

JMP 
JMS 
TAD 
IS7. 
CLL 
RTL 
DCA 
TAD 
I SZ 
RTR 
HTR 
DCA 
TAD 
AND 
TAD 
DCA 

ist; 

TAD 
RAR 
AND 
TAD 
DCA 

IS?; 

JMS 
ISZ 

JiMP 
DCA 



CM A 
DCA 
IS?, 
ISZ, 

JMP 




DCA 



PCKSWT 

PCKINI 

I PCKHP 

PCKRP 

PCKRCT 

PCKNRM 

PCKRES 

I PCKRP 

PCKRP 

RTL 

I PCKPTR 
I PCKRP 
PCKRP 



PCKSWT 

PCKS^^iT 

CI 7 

I PCKPTR 

I PCKPTR 

PCKPTR 

PCKSWT 

C7400 

I PCKRP 

I PCKPTR 

PCKPTR 

PCKRES 

PCKCNT 

PCKNRM 

PCKSWT 

PCKEND 



PCKSWT 
PCKSGL 
PCKSGL 
I PCKSGL 



PCKSWT 



BUF 



/INITIALIZE? 

/YES 

/NO PUT CHAR IN TEMP 

/INCREMENT POINTER 

/3 CHAR'S IN TEMP BUF? 

/N0> NORMAL EXIT 

/YES> RESET POINTER TEMP* 

/GET FIRST CHAR 



/TEMP STORAGE 
/GET SECOND CHAR 



BUF 



/TEMP* STORAGE 
/MUST SIGN* ^ BITS 

/FIRST WORD 



/LEAST SIG[>JIFICANT 4 BITS 
/GET THIRD CHAR 
/SECOND WORD 

/RESET POINTER TEMP BUF 

/BUFFER FULL? 

/NO 

/YES SET SWITCH 



/SET SWITCH 



/TEMP STORAGE 

48 



Ji'iS 


PCXHF.i 


/SET POINTER TEMP BU 


TAD 


I PCKSGL 


/GET EUFEERADDRESS 


DCA 


PCKPTH 




TAD 


PCKBFL 




STL 


RAR 


/BUi< i- E:RS I Z E DEVI DED 


DCA 


PCKCNT 




TAD 


PCKSWT 




JMF> 


I PCKINI 




/ 






/ 






PCKRES> 






TAD 


M3 




DCA 


PCKRCT 


/TEMP BUi- IS 3 ^ORDS 


TAD 


PCKRBA 


/TEMP BUlr ADDRESS 


DCA 


PCKRP 




JMP 


I PCKRES 




/ 






/ 






/VARIABLES 






/ 






PCKSWT*0 






PCKPTR*0 






PCKHP> 






PCKHCT*0 






PCKCNT*0 






PCKRBA,PCKRE 


\ 




PCKBFL>-/100 






PCKRB* 




















/ 






/GENEP-AL CONSTAiMTS 




M3^ -3 






C17* 17 






C7^i00* 7400 







BY 8 
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/(^3P: SUBEOUTIlvJK TO PACK CHAHACTt.RS OjE BY ODJE 

/THREE CHARACTERS l^ TWO WORDS ( TSSB l^ORMAT) 

/PACKED:! mill 12222 

/ 222233333333 

/ 

/CALL 

/ 

/ 

/ 

/INITIALIZE ttNlCE DSPTR TO BUEEERADDRESS 

/AND DSCINIT:=DSBEL DEVIDED BY 2 

/ 



( TS58 ) 



:JMS DSOUT WITH CHAR I iM AC 
RETURN BUEFER FULL 
RETURN NORMAL 



BSW=7002 


DSBUF= 


400 


/ 




/ 




DSOUT* 







DCA DSTMP 




BAR 




DCA DSLNK 




TAD DSCNTW 




CLL RTR 




SNL SMA CLA 




JMP DSFRST 




SNL 




JMP DSSEC 




TAD DSTMP 




TAD I DSPTR 




DCA I DSPTH 




DCA DSCNTW 




ISZ DSPTR 




ISZ DSCiNJT 




JMP DSEX3 




TAD DSBFA 




DCA DSPTR 




TAD DSBFL 




STL RAR 




DCA DSCNT 




TAD DSLNK 




CLL RAL 




JMP I DSOUT 


DSSEC, 


TAD DSTMP 




CLL RTL 




BSW 




AND C77 




TAD I DSPTR 




DCA I DSPTR 




ISZ DSPTH 




TAD DSTMP 




AND CI 7 




BSW 




CLL RTL 




DCA I DSPTR 


. • 


JMP DSEXR 


DSFRST> 


TAD DSTMP 




CLL RTL 




RTL 




DCA I DSPTJ2 


DSEXg> 


ISZ DSCNTW 


DSEX3* 


TAD DSLNK 



/TEMP. STOFiAGE 

/SAVE LINK 
/FIRST, SECOND 



OR THIRD CHAR 



/FIRST CHAR OF THREE 



/SECOND CHAR 
/THIRD CHAR 



OF THREE 



/PUT IN BUFFER 
/RESET CHAR COUNT 

/BUFI^EH FULL ? 

/N0> EXIT 

/YES> RESET POINTER 

/-BUFFEHLENGTH 
/DEVIDE BY 2 

/RESTORE LINK 

/EXIT BUFFER FULL 



/BYTE SWAP 



/RESTORE LINK 
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CLL 


t:. ;> 


if. 


IS'/, 


L^ 


^OUT 


J;^1P 


I 


DS0L5T 


/ 






/UAF lABLES 






/ 






IjSBFL> -^00 






DSRhA> DSBUh 




/OU 


DSLNK> 






DSTMP> 






L)SCNTw>0 






DSCNT> 






DSPTR> 






/ 






/GE-NJERAL CONSTANTS 


C17> 17 






C7?> 77 







/^Oi 



AL 



VI 



/OUTPUT EUhFEri A DDK ESS 
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/033 SURPOUTIi^JE TO UlnJPACK CHARACTERS (TSS8) 

/PACKED THREE CHARACTERS IN TWO WORDS (TSS8 

/ 

/PACKED: 11 111111P292 



FORMAT) 



/ 

/CALL 

/ 

/ 

/ 

/ 

/ROUTINE 

/ 

UMPACK 



22P233333333 

:JMS UNPACK 

ADDRESS OF INPUTBUEFEH 

ADDRESS OF OUTPUTBUFFER 

RETURN 

USES AUTO- INDEX 10 



UN PL OP i 





TAD 

STL 

DCA 

TAD 

DCA 

ISZ 

CLA 

TAD 

DCA 

isz; 

TAD 

RTR 

RTR 

AND 

DCA 

TAD 

CLL 

RTL 

AND 

DCA 

ISZ 

TAD 

CLL 

RTL 

RTL 

AND 

TAD 

DCA 

TAD 

AND 

DCA 

IS7. 

ISZ 

JMP 

JMP 



UNPBFL 

RAR 

UNPCNT 

I UNPACK 

UNPPTH 

UNPACK 

CMA 

I UNPACK 

10 

UNPACK 

I UNPPTR 



C377 

I 10 

I UNPPTR 

RTL 

C360 
UNPTMP 
UNPPTR 
I UNPPTR 
RAL 



C17 

UNPTMP 

I 10 

I UNPPTR 

C377 

I 10 

UNPPTR 

UNPCNT 

UN PL OP 

I UNPACK 



/-BUFFERLENGTH 
/DEVIDE BY 2 



INPUTBUFFER 



/ADDRESS INPUTBUFFER 



/-I 

/ADDRESS 



OUTPUTBUFFER 



/FIRST CHAR 

/PICK UP CHAR AGAIN 



/TEMP. STORAGE 



/SECQNJD CHAR 



/THIRD CHAR 

/READY ? 
/NO>Ca>JTINUE 
/YES-r EXIT 



/VARIABLES 
/ 

UNPPTR^ 

UNPTMP>0 

UNPCNT>0 

UNPBFL>-400 

/ 

/GENERAL CONSTANTS 

C17> 17 

C360> 360 

C377> 377 
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/0 3^ SUBHOjTJ u>jF^aCKS 

/PACKED THK^,.'. OlAy^AClhl-^ 

/PACKED: 1 1 i 1 1 1 1 12i^^9^ 

/ ^22233333333 

/ 

/CALL 

/ 

/ 

/ 

/ 

/INITIALIZE 

/ 

/ 

UiN3PSGL> 



1^1 



iACTEf S Ot^ 
TWO WORD^ 



. BY O^P. ( TSSb) 
(TSS8 I^ORMAT) 



:jMS UnPSGL 
ADDRESS IMPUTBUFFER 
HETUPi^ BUFFER EMPTY 
NOHMAL BETURN AC=CHAR* 



AC=0 



ONCE UNPKBF: =^UNPBEF : ^UNPCNT: ^0 





CLA 

TAD 

SZA 

JMP 

TAD 

SZA 

JMP 

TAD 

SDOA 

JMS 

TAD 

DCA 

TAD 

RTB 

HTR 

AND 

DCA 

ISZ 

TAD 

CLL 

BTL 

AN D 

DCA 

ISZ 

TAD 

CLL 

BTL 

BTL 

AND 

TAD 

DCA 

ISZ 

TAD 

ISZ 

AND 

DCA 



CLL 

UNPRBF 

CLA 

UNPGET 

UNPBEF 

CLA 

UNPEMP 

UNPCNT 

CLA 

UNPIN I 

UNPRBA 

UNPRP 

I UNPPTH 



C377 

I UNPBP 

UNPRP 

I UNPPTH 

Bl'L 

C3 60 

I UNPRP 

UNPPTH 

I UNPPTH 

HAL 



CI 7 

I UNPBP 

I UMPBP 

UNPRP 

I UNPPTL 

UNPPTB 

C377 

I UNPBP 

TAD UNPRBA 

DCA UNPBF^ 

CLL CMA 
UNPBCT 
UNPCNT 
UNPGET 



UNPGET. 



CLA 
DCA 
ISZ 

jm^ 

lAC 
DCA 
ISZ 
I AC 



HTL 



UNPBEF 
UNPBCT 



/ABE THERE CHAR'S IN 

/TEMP* BUFFER ? 

/YES> GET ONE 

/N0# INPUTBUFFER EMPTY ? 

/YES> RETURN END OF BUFFER 

/NO OB YES^MUST I 

/START UP POINTERS ? 

/YES^ PLEASE DO 

/NO^JUST UNPACK NEXT WORDS 

/NEXT WORD FRCM INPUTBUF 



/FIRST CHAR IN TEMP* BUF 
/GET WORD AGAIN 

/TEMP. STORAGE 
/NEXT WORD 



/SECa>4D CHAR 
/THAT WORD AGAIN 



/THIRD CHAR 
/RESET POINTER 



TEMP. BUF 



/-3 

/3 CHAR'S IN TEHP* 
/I NPUTBUl* FEB EMP TY 
/N0> GET CHAR NOW 
/YES^SET FLAG BUFFER 
/AND THAN GET CHAR 
/LAST ivROl Ttr^ipe BUF 
/NO>SET FLAG 



BUF 



EMP TY 
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DCA 


Ul^PF.DF 


TAD 


I UC^PPP 


ISE 


UNPRP 


ISZ 


UlsIPSGL 


UNPEMT> ISZ 


UNPSGL 


. JMP 


I U^PSGL 


/ 




UNPEMP^ DCA 


UiNJPBKF 


JMP 


UNPEMT 


/ 




UNPI^U> 




DCA 


UNPRBF 


TAD 


I UiNiPSGL 


DCA 


UNPPTR 


TAD 


UNPBFL 


STL 


RAR 


DCA 


UiNJPCNT 


JiMP 


I UNP I N I 


/ 




/VARIABLES 




UNPBFL>-400' 




OM^NT^e 




UNPRCT#0 




UNPRP> 




UMPPTR>0 




U^JPHBF> 




UNPBEF>0 




UNPRBA^ UNPRB 


UNPRB> 














/ 




/GENERAL COSISTANTS 


C17> 17 




C360> 360 




C377>^ 377 





/Yti.S RESET FLriG 
/GET CHAP 



/RES El FLAG 

/AMD E'^iPTY BUi^FER RETURN 



/RESET l^LAG 
/ADDRESS INPUTBUFM^iR 

/-LENGTH OF BUPRER 
/DIVIDE BY 2 
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/035 SUBROUTINE TO READ A NAr^E KHCM KEYBOARD 

/ 

/CALL :JMS HDNAME 

/ WORD 1#2 CHAE'S VEiM inJAME IN EXCESS- ^0 CODE 

/ WORD 2^2 CHAR'S FllO^l NAME 

/ WORD 3>2 CHAR'S ER.Oi^ iMAME 

/ERROR RETURN 

/NORMAL RETURN 

/ 

/ROUTINE USES AUTO INDEX 10^ ROUTINES READ^ PRINT 

/AND CRLF 



BSvJ=700S 


BUFADR= 


^400 


/ 




/ 




RDNAME* 







TAD RDNMBF 




DC A RDPTR 




DCA RDCNT 


RDIN, 


JMS READ 




DCA RDCHAR 




TAD RDCHAR 




TAD RIWRO 




SNA 




JMP RDROS 




TAD RDMCRN 




SNA 




JMP RDTWNR 




TAD RDMLFD 




SNA 




JMP RDTWNR 




TAD RIWSPE 




SPA SNA CLA 




JMP RDFTNM 




TAD RDCHAR 




DCA 1 RDPTR 




ISZ RDCNT 




ISZ RDPTR 




JMP RDIN 




JMP RDFTNM 


/ 




RDROS* 


TAD RDCNT 




SNA CLA 




JMP RDIN 




CMA 




TAD RDCNT 




DCA RDCNT 




CMA 




TAD RDPTR 




DCA RDPTR 




TAD I RDPTR 




JMS PRINT 




JMP RpIN 


/ 


; : , 


RDTWNR> 


JMS CRLF 




TAD RDCNT 




SNA 




JMP RPFTNM 




TAD M^ 



/ADDRESS ASCII BUFFER 

/CHAR* COUNTER 

/READ CHAR FR CM KEYB* 



/RUB OUT ? 

/YES^ TO SERVICE 

/N0> CARRIAGE RETURN ? 

/YES^TO SERVICE 
/N ONLINE FEED 

/YES>SAME SERVICE AS CR 
/NO^CHAR>240 ? 

/NO^ERRORRETURN 
/YES>IN BUFFER 

/+# CHAR'S 

/NEXT CHAR 

/4K BUFFER FULL> ERROR 

/ALREADY SQ^iETHING IN BUFFER? 

/NO^STUPID RO-TYPEH! 
/YES COUNTER BACK 1 



/AND POINTER BACK 1 

/PRINT REMOVED CHAR 
/END RO-SERVICE 
/PRINT CR LF 

/NAME WITHOUT CHAR'S IS RUBBISH 
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HDNXT> 



FiDPTNM> 



/ 
/ 



CLA 
TAD 
CIA 
DCA 
TAD 
DCA 
TAD 
DCA 
TAD 
DCA 
DCA 
DCA 
TAD 
TAD 
AND 
BSW 
DCA 
ISZ 

isz; 

SKP 
JMP 
TAD 
TAD 
AND 
TAD 
DCA 
1S7. 
ISZ 
ISZ 
JMP 
ISZ 
ISZ 
ISZ 
ISZ 

JMP 



5/ A 

C6 

RDCNT 

RDNi^BF 
RDPTR 

rdnamh; 

RDTMP 

RDTMP 
10 

I 10 

I 10 

I RDPTH 

C2^0 

C77 

I HDTMP 

RDPTR 

RDCNT 

RDNMOK 
I RDPTR 
Cg40 
C77 . 

I RDTMP 

I RDTMP- 

RDTMP 

RDPTR 

RDCNT 

RDNXT 

RDNAME 

RDNAi^E 

RDNAME 

RDNAME 

I RDNAME 



/VARIABLES 

/ 

RDNMBF^BUFADH 
R DP TR> 
RDCNT> 
RDCHAR>0 
RDTMP^ 
RDMRO^ -3 77 
RDMCRN> 3 7 7- PI 5 
RDMLFD^Pl 5-PlP 
'RDMSPE^ PlP-p/=0 
/ 

/GENERAL CONSTANTS 
M6y -6 

C6> 6 

C7 7> 7 7 

C240> 240 



/SIX UR Li/,SS CHAR'S 
/MORE^THAN MAKE IT SIX 



/-# CHAR'S 
/BUEFER ADDRESS 

/PACKED NAME ADDRESS 
/PLACED UNDER CALLING 



/CLEAR Bur'PER 

>^AKE EXCESS- 40 CODE 



/READY READING NAME 
/NOT READY NEXT CHAR 



/NEXT CHAR'S 

/NOiiMAL RETURN 



/EXIT 



/ADDRESS BUl^hER 
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/036 SUBH0aTI^3iL SEARCHES NAME IN DN-BLOCKS (DISKMOiN)*) 

/(DISK MONITOR SYSTEM) 

/ 

/CALL :JMS DNSRC 

/ NA hlliST TWO CHAR'S Ii^ EXCESS-40 6 BIT 

/ ME LAST •• •* •• 

/ RETURN NAME NOT FOUND AC = 

/ RETURN NAME FOUND AC=INT* PILE NR 

/ 

/SUBROUTINE USES AUTO INDEX 11 AND MONITOR DISK HANDLER 

/ 

BUFFER=i^J00 

/ 

DNSRC> 

TAD CI 77 /# MRST DN-BLOCK 

JMS DNSRBK /RIiAD BLOCK 

TAD I DNSRC 

CIA 

DCA DNSMNA /- TWO CHAR'S OF NAME 

IS2; DNSRC 

TAD I DNSRC 

CIA 

DCA DNSMME /- LAST CHAR'S 

is;?; DNSRC 

DNSBLK^ CLA CLL lAC RAL /+S 

TAD DNSBFA /BUFFER ADDRESS 

DCA 1 1 

TAD M31 /# ENTRIES IN ONE BLOCK . 

DCA DNSCNT 
DNSNXT^ TAD I 11 /FIRST HALF OF NAME 

TAD DNSMNA /COC^PARE vJI TH NAME TO LOOK FOR 

SZA CLA /EQUAL? 

JMP DNSNOT /NO TRY NEXT NAME 

TAD I 11 /YES> TEST 2>^D* HALF TOO 

TAD DNSMME 

SZA CLA /EQUAL? 

JMP DNSNTl /NO NEXT NAME 

I SZ 1 1 

I SZ 1 1 

TAD I 1 1 

AND C7 /MASK OF INT FILE # 

ISZ DNSRC 
DNSERR^ JMP I DNSRC 
/ 

rXNSNOT, CLA I AC 
DNSNTl > TAD C3 

TAD 1 1 

DCA 1 1 

ISZ DNSCNT /END OF THIS BLOCK? 

JMP DNSNXT /NO>ca*lPARE NEXT NAME 

TAD DNSLNK /YES NEXT BLOCK? 

SNA 

JMP DNSERR /N0> NAME NOT FOUND 

JMS DNSRBK /READ THAT BLOCK 

JMP DNSBLK 
/ 
DN SRBK> 

DCA FSTBLK 

TAD C3 
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DC A FU^JCTI 

TAD DCS) SB FA 

DC A BUFADR 

DCA DiXiSLNK 

J^S I SYS 10 /C'iO^JlTO?^ DISK HArJDLFK 

FUNCTI>0 
FSTBLK>0 
HUFADR>0 
DNSLNK>0 

HLT /LnROH RETURN 

JMP I DiMSRBK 
/ 

/VARIABLES 
/ 

SYS 10^ 7 6A9. 
DNSMi>JA#0 
DNSMME>0 
D^3SCl^JT^0 
D^]SBFA> BUFFER 
/ 

/GEC^ERAL Ca^slSTANTS 
C3> 3 

C7> 7 

C177> 177 

M31, -31 
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SUBROUTINE SEARC 
RESERVES IT FOE 



/037 

/A'MD 

/ 

/CALLING: JMS SAMPIL 



/ 

/ 
/ 
/ 
SAMEIL^ 



SAMHGT> 



RETURN 
HtiTURDJ 



DISK K 
N OHMAL 





DCA 

JMS 

Ji^P 

CLA 

TAD 

DCA 

TAD 

TA D 

SDJA 

JMP 

TAD 

CLL 

RTL 

RTL 

DCA 

JMP 

TAD 

TAD 

DCA 

CMA 

TAD 

DCA 

TAD 

DCA 

TAD 

DCA 

TAD 

DCA 

JMS 

ISZ 

TAD 

JMP 



SAMSAV 

SAMSEC 

I SAMFIL 

CMA 

10 

10 

SAMMSK 

M77 

CLA 

SAMR6T 

SAMSAU 

RTL 



SAMSAV 
. + 3 
I 10 

SAMSAV 
SAMSAV 

10 

10 

SAMSAV 

I 10 

C5 

FUiMCTI 

SAME FA 

BUFADR 

SAMRDB 

SAMFIL 

SAMBKN 

I SAMFIL 



HES UfsJUSED BLOCK CM DISK (LISKMON) 
FILE (DISK MO^ITOi^ SYSTEM) 

;'iITH loJT. FILE MR IaJ AC 
ULL 
WITH BLOCKi^jR IN AC 



/SAVE INT FILE # 
/SEARCH FOR EMPTY BLOCK 
/NOT FOUND SO DISK FULL 
/BLOCKNR STILL IN SAMBKN 
/AUTO INDEX STILL ON SPOT 

/WHICH HALF IS MASK 

/LEFT OR EI 6HT? 

/MASK IS QN RIGHT HALF 

/PUT INT FILE # ON LEFT HALF 



/ 

/VARIABLES 

/ 

SAMSAV^ 

/ 

/GENERAL CONSTANTS 

/ 

M77> -77 

Cbj 5 



/ADD INT FILE i 
/TEMP. STORAGE 



/PUT IN BUFFER 



/RESTORE SAM ON DISK 

/GET BLOCKNR 
/RETUliN 
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/:KjH SUJjpuljTJ vL SEARCHES I^^iT. tlLE ^t ( DI SKi>iUC\i ) 

/l^ SAi^DLOCKS (DISK j:'iONITOR SYSTEM) 

/ 

/CALL :Jlv1S SAMSRC WITH INT* FILE # ICvJ AC 

/ HETUiiM .MUMBEK NOT FOUivD; AC^0 

/ RETURN) m< FUJ[JWD>AC=^# FIRST BLOCK hHOW KILE 

/ 

/SUBROUTINE USES AUTO INDEX 10 AND WO^JITOR DISK HANDLER 

/ 

/ 

DUFFER=/i00 

/ 

/ 

SAMSRC> 

DCA SAi'^IFN /livT FILE # TO SEARCH FOR 

TAD SAMIF^ /L^iAKiL IT T ^0 IN ONiE WORD 

CLL RTL 

RTL 

RTL 

TAD SAMII^'^ 

DCA SAMIl'T^ 

DCA SAi^BKM /COiKnjTER h OR BLOCKER 

TAD C^00 /# FIRST SAMDLOCK 

SAMRBK^ DCA BLKiNlR 

TAD- C3 /READ FU^^CTIOs^ 

DCA FUlMCTI 

TAD SAMBFA /BUFFER ADDRESS 

DCA BUFADR 

JMS SAMRDB /READ BLOCK 

SAMSR> TAD C77 

DCA SA^^iMSK /SEARCH RIGHT HALF 

TAD 1^200 

DCA SA^^CNT /20i'i WORDS 

CC^A 

TAD SAl^BI^A 

DCA 10 

SKP 
SAMNXT> ISZ SAWBKN /COUNT BLOCKER 

TAD I 10 /GET WORD 

A>JD SAIv^MSK /-}ASK 

CIA /^jEGATI\; 

DCA SAMTiXlP /TEi^B. STORAGE 

TAD SAC-lII'i\l /DMT FILE # TO SEAiUR^ i- OR 

AND S'^-1.1SK /.^.AS \ CORRECT HALF 

TAD SAMTMP /SAi^E fr 1 

SNA CLA 

JC^iP SADaPND /YES-r FOUND IT 

IS:^ SAMC^NiT /<iO, i:^. ORr. IN THIS HALP? 

JMp SAM^-vXT /YES> SEARCH 

IS^ SAi^lBKN /NO^ UPDATE BLOCKNR 

TAD SAMMSK /WHERE WEHh WE SEARCiiING? 

AND C7 700 

SZA CLA /LEFT OVt RIGHT HALF' 

^iAP . + 3 /LlsFT HALF> BOTH SIDES DONE 

TAD C7700 /RIGHT HALF, SO DO LEFT NOW 

^VAp SAi^SR+1 

TAD SAt^LNK /I, A ST SAMBLOCK? 

SNA 

Ji<iP SANNOT /YES> SO NOT FOUND 

JMP SAMRBK /NO^ READ Ni'.XT BLOCK 
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/ 
/ 

Sf\yiv^ijy isz sAMsy.c 

TAD SA^:r:::<;:s] 
SAM?:vOT^ JMP I SA^OSaC 
/ 
/ 
SA^':pDB>i'} 

JM5 I SYSIO /MOivlITOK DISK HANDLLx 

FUoOCTI^O /ntAlj=3^ WriITL=S 

ELKiXIH> /BLOCKiXiE 

BUFADK>0 /PUKFEiiADDHESS 

SAt^LNK>0 /.^^H ^OI'XT PLOCK> = LAST BLOCK 

HLT /iLKKOn RbTUH^:, SYSTLl4 ERROR 

JMP I SAMFajR 
/ 

/UAKIAPLES 
/ 

SAMTMP>0 
SAM I FN >0 
SANPKiM>0 
$AMr^SK>0 
SAiyiCNT>0 
SAMBFA> BUFFER 
SYSIO> 7642 
/ 

/GENIEEAL CONSTANTS 
/ 

C3> 3 

C7 7> 7 7 

C200> 200 

C7700> 7700 
M200> -200 
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/0 39 S 

/ 

/EEFOH 


URKOUTIiME READS 


OR '.'JRITES ON DISK (TSS-8> 


E CALLIlNJG CALCULATE DISKADL/I-ESS A.VL 


/PUT IN HI OR AND LO^jOYi 




/ 

/CALL 


: JM 


S DFILE 




/ 


FUNCTION CRFIL 


E OR WFILE) 


/ 


INTERNAL FILE 


NUMBER 


/ 


-# ' 


^ORDS 




/ 


CORE ADDRESS 




/ 


ERR 


OR RETURN 




/ 
/ 

/FILE 


NORMAL RETURN 




MUST ] 


BE OPEN ! ! ! 


!!!!!! 


/ 
/ 
DFILE, 











TAD 


I DFILE 


/GET FUNCTI a\ 




DCA 


DFINST 






ISZ 


DFILE 






TAD 


I DFILE 


/GET INT. FILE NR 




DCA 


W6BUF+1 






IS7- 


DFILE 




DFTRY* 


TAD 


I DFILE 


/-DWORDS 




DCA 


y6BUF+2 






ISZ 


DFILE 






CLA 


CMA 






TAD 


I DFILE 


/COFiE ADDRESS 




DCA 


W6BUF+3 






IS?; 


DFILE 






TAD 


W6AD 


/ADDRESS 6 WORD BUFi-ER 


DFINST. 


» 




/DO FUNCTI CXN 




TAD 


W6BUF+5 


/ERROR WORD 




SNA 








JMP 


DFOKE 


/NO ERROR 




CLL 


RTR 


/ERR OR 




SZL 


SNA CLA 






SKP 


CLA 


/ERR0R=2 




JMP 


DFERR 


/ERR OR IS NOT S 




lAC 








DCA 


iJSBUF+S 


/ERROR IS I'lLE FULL 




TAD 


WSAD 


/SO MUST EXTEND FILE 




EXT 




/EXTENDING vJI TH ONE SEGMENT 




SZA 


CLA 






JMP 


DFERR 


/ERROR: DISK FULL 




TAD 


DFSEGA 


/ADDRESS LIST SEGMENTCOUNTERS 




TAD 


W2BUF 


/INT FILE NR 




DCA 


W6BUF+e 


/TEMP USE 




ISZ 


I y6BUF+2 


/I N CR EM EN T C OUN TER 




CLL 


CLA CMA RAL /- 2 




TAD 


DFILE 






DCA 


DFILE 






JMP 


DFTRY 


/GO THY AGAIN NOW 


DFOKE, 


ISZ 


DFILE 




DFERR* 

/ 

/UARIAI 

/ 

DFSE6A, 


JMP 


I DFILE 




3LES 






DFSE60 




DFSEG0> 





/# SEGp 


CENTS ULE 
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LK^EiM^ 




bhSb.G2> 


7; 


L1^SEG3:.^ 





W 6A Vj 


W6BUF 


WfiAD> 


W?.EiUF 


W 6B nF> 




HIOR> 





i^[^BUF> 















LOl«;OH> 











/;^ Si-:GMt:N}T$ FILE 3 



/fllGH OHDEK DISK ALDiiESS 

/INT MLK WR 

/-# words; # Sbb'S TO KXT 

/COHE ADDRESS- 1 

/LOW OR DEE DISK ADDRESS 

/ERF<OR WORD 
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